home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 93 / 093.d81 / cryptic 93 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  165 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 7 dimw$(300)
  3. 10 poke53281,0:poke53280,0:print"[147]"
  4. 12 sys57812"input any ce00",8,0:poke780,0:poke781,0:poke782,206:sys65493
  5. 14 gosub60000
  6. 16 sys52736,"cryptdata 93",dv
  7. 18 h=peek(252)*256+peek(251)
  8. 19 goto90
  9. 20 open4,4,7:close4
  10. 22 fl=0:poke214,20:print"[159]"
  11. 24 ifst=-128thenprintc$q$:fl=1:goto28
  12. 26 printc$u$:poke198,0
  13. 28 geta$:ifa$=""then28
  14. 29 return
  15. 30 poke214,23:print
  16. 32 print"   [193]ny key [155]- more    [210][197][212][213][210][206] [155]- menu[159][145]":poke198,0
  17. 34 geta$:ifa$=""then34
  18. 36 fg=0:ifa$=ch$thenfg=1
  19. 38 return
  20. 50 fori=130to150
  21. 52 ifw$(i)="*"thenx=i+1:i=150
  22. 54 next
  23. 56 return
  24. 90 v=53248
  25. 91 fori=832to876:pokei,255:next
  26. 92 fori=0to4:poke2040+i,13:pokev+39+i,6:next
  27. 93 pokev+16,0:pokev+29,31:pokev+27,31
  28. 94 fori=0to3:pokev+2*i,70+i*48:pokev+1+2*i,70:next:pokev+8,240:pokev+9,70
  29. 100 print"[147]"
  30. 101 ch$=chr$(13):bk$="[191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191]"
  31. 102 fori=0to4:readb$(i):next
  32. 103 data"[159] [195] [210] [217] [208] [212] [201] [195]   [195] [207] [210] [206] [197] [210] "
  33. 104 data"  1.  [208]rint [195]ryptic          "
  34. 105 data"  2.  [208]rint [197]xplanation      "
  35. 106 data"  3.  [208]rint [201]nstructions     "
  36. 107 data"  4.  [200]ead [194]ack to [204][207][193][196][211][212][193][210]  "
  37. 108 p$="        [208]ress a number       "
  38. 109 r$="    ([208])rinter or ([211])creen    "
  39. 110 e$="                             "
  40. 111 q$=" [208]rinter's off!  [208]ress a key "
  41. 112 u$=" [211]et top of form - press key ":v$="   [208]ress a key to continue   "
  42. 113 tp$="[191][191][191][191][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][146][191][191][191][191]"
  43. 114 md$="[191][191][191][191][221][159]                             [221][146][191][191][191][191]"
  44. 115 bt$="[191][191][191][191][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][146][191][191][191][191]"
  45. 116 c$=""
  46. 117 pp$="                                            "
  47. 118 f$="     ":g$="!--!--!--!--!--!--!--!--!--!--!--!--!--!--!--!"
  48. 119 gosub50
  49. 120 fori=1to4:d$(i)=c$+e$+ch$+c$+b$(i)+ch$+c$+e$:next
  50. 121 print""bk$:printtp$
  51. 122 fori=0to14:printmd$:next
  52. 124 printbt$:printbk$
  53. 126 printtp$:fori=0to2:printmd$:next:printbt$:printbk$"[145][145][145][145][159]":printc$p$
  54. 130 poke214,2:print:printc$b$(0):print""
  55. 132 pokev+21,31
  56. 134 fori=1to5:printc$b$(i):print"":next
  57. 158 poke198,0
  58. 160 geta$:ifa$<"1"ora$>"4"then160
  59. 162 k=val(a$)
  60. 164 poke214,k*3+1:print:print""d$(k)
  61. 166 onkgoto200,500,500,900
  62. 200 gosub20:ifflthen120
  63. 210 open4,4,7
  64. 215 fori=0to4:print#4:next
  65. 220 print#4,"             [198][210][201][197][206][196][211], [204][207][214][197][210][211] [193][206][196] [211][201][194][204][201][206][199][211]"
  66. 230 print#4
  67. 240 print#4,f$g$
  68. 241 print#4,f$"! 1!  ! 2!  ! 3!  !  ! 4!  !  ! 5!  ! 6!  ! 7!"
  69. 242 print#4,f$"!  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !"
  70. 243 print#4,f$g$
  71. 244 print#4,f$"!  ![216][216]!  ![216][216]!  ![216][216]![216][216]!  ![216][216]![216][216]!  ![216][216]!  ![216][216]!  !"
  72. 245 print#4,f$"!  ![216][216]!  ![216][216]!  ![216][216]![216][216]!  ![216][216]![216][216]!  ![216][216]!  ![216][216]!  !"
  73. 246 print#4,f$g$
  74. 247 print#4,f$"! 8!  !  !  !  !  !  !  !  ![216][216]! 9!  !  !  !  !"
  75. 248 print#4,f$"!  !  !  !  !  !  !  !  !  ![216][216]!  !  !  !  !  !"
  76. 249 print#4,f$g$
  77. 250 print#4,f$"!  ![216][216]!  ![216][216]!  ![216][216]![216][216]!  ![216][216]![216][216]!  ![216][216]!  ![216][216]!  !"
  78. 251 print#4,f$"!  ![216][216]!  ![216][216]!  ![216][216]![216][216]!  ![216][216]![216][216]!  ![216][216]!  ![216][216]!  !"
  79. 252 print#4,f$g$
  80. 253 print#4,f$"!10!  !  !  !  !  !11![216][216]!12!  !  !13!  !  !  !"
  81. 254 print#4,f$"!  !  !  !  !  !  !  ![216][216]!  !  !  !  !  !  !  !"
  82. 255 print#4,f$g$
  83. 256 print#4,f$"!  ![216][216]!  ![216][216]!  ![216][216]!  ![216][216]!  ![216][216]![216][216]!  ![216][216]![216][216]!  !"
  84. 257 print#4,f$"!  ![216][216]!  ![216][216]!  ![216][216]!  ![216][216]!  ![216][216]![216][216]!  ![216][216]![216][216]!  !"
  85. 258 print#4,f$g$
  86. 259 print#4,f$"![216][216]![216][216]![216][216]!14![216][216]![216][216]!  ![216][216]!  ![216][216]![216][216]!  ![216][216]![216][216]!  !"
  87. 260 print#4,f$"![216][216]![216][216]![216][216]!  ![216][216]![216][216]!  ![216][216]!  ![216][216]![216][216]!  ![216][216]![216][216]!  !"
  88. 261 print#4,f$g$
  89. 262 print#4,f$"!15!  !  !  !  !  !  !  !  !  !  !  !  !  !  !"
  90. 263 print#4,f$"!  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !"
  91. 264 print#4,f$g$
  92. 265 print#4,f$"!  ![216][216]![216][216]!  ![216][216]![216][216]!  ![216][216]!  ![216][216]![216][216]!  ![216][216]![216][216]![216][216]!"
  93. 266 print#4,f$"!  ![216][216]![216][216]!  ![216][216]![216][216]!  ![216][216]!  ![216][216]![216][216]!  ![216][216]![216][216]![216][216]!"
  94. 267 print#4,f$g$
  95. 268 print#4,f$"!  ![216][216]![216][216]!  ![216][216]![216][216]!  ![216][216]!  ![216][216]!16![216][216]!17![216][216]!18!"
  96. 269 print#4,f$"!  ![216][216]![216][216]!  ![216][216]![216][216]!  ![216][216]!  ![216][216]!  ![216][216]!  ![216][216]!  !"
  97. 270 print#4,f$g$
  98. 271 print#4,f$"!19!  !20!  !21!  !  ![216][216]!22!  !  !  !  !  !  !"
  99. 272 print#4,f$"!  !  !  !  !  !  !  ![216][216]!  !  !  !  !  !  !  !"
  100. 273 print#4,f$g$
  101. 274 print#4,f$"!  ![216][216]!  ![216][216]!  ![216][216]![216][216]!23![216][216]![216][216]!  ![216][216]!  ![216][216]!  !"
  102. 275 print#4,f$"!  ![216][216]!  ![216][216]!  ![216][216]![216][216]!  ![216][216]![216][216]!  ![216][216]!  ![216][216]!  !"
  103. 276 print#4,f$g$
  104. 277 print#4,f$"!24!  !  !  !  ![216][216]!25!  !  !  !  !  !  !  !  !"
  105. 278 print#4,f$"!  !  !  !  !  ![216][216]!  !  !  !  !  !  !  !  !  !"
  106. 279 print#4,f$g$
  107. 280 print#4,f$"!  ![216][216]!  ![216][216]!  ![216][216]![216][216]!  ![216][216]![216][216]!  ![216][216]!  ![216][216]!  !"
  108. 281 print#4,f$"!  ![216][216]!  ![216][216]!  ![216][216]![216][216]!  ![216][216]![216][216]!  ![216][216]!  ![216][216]!  !"
  109. 282 print#4,f$g$
  110. 283 print#4,f$"!26!  !  !  !  !  !  !  !  !  !  !  !  !  !  !"
  111. 284 print#4,f$"!  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !"
  112. 285 print#4,f$g$
  113. 310 fori=0to16:print#4:next
  114. 312 poke214,20:print:printc$v$:poke198,0
  115. 313 geta$:ifa$=""then313
  116. 315 z=(h-x)/2-1
  117. 320 fori=xtox+z
  118. 322 print#4,w$(i);
  119. 324 print#4,left$(pp$,40-len(w$(i)))w$(i+33)
  120. 326 next
  121. 332 print#4:close4
  122. 334 goto120
  123. 500 d1=1:d2=99:d3=49:d4=49:ifk=2thend1=100:d2=x-1:d4=(d2-99)/2:d3=99+d4
  124. 501 poke214,20:print"[159]":printc$r$:poke198,0
  125. 502 getk$:ifk$=""then502
  126. 504 ifk$="p"then550
  127. 506 ifk$="s"then510
  128. 508 goto120
  129. 510 pokev+21,0:print"[147][159]":fori=d1tod2
  130. 512 ifw$(i)<>"\"then520
  131. 514 gosub30:iffgtheni=d2:next:print"[147]":goto120
  132. 516 print"[147]":i=i+1
  133. 520 ifw$(i)<>"*"thenprint" "w$(i)
  134. 524 next
  135. 526 gosub30:iffgtheni=d2:print"[147]":goto120
  136. 528 goto510
  137. 550 gosub20:ifflthen120
  138. 552 open4,4,7:fori=0to2:print#4:next
  139. 554 fori=d1tod3:l=len(w$(i))
  140. 555 ifw$(i)="\"thenprint#4," ";:goto557
  141. 556 print#4," "w$(i);
  142. 557 ifw$(i+d4)="\"thenprint#," ":goto560
  143. 558 print#4,left$(pp$,40-l)w$(i+d4)
  144. 560 next
  145. 562 fori=0to62+(k$="p")-d4:print#4:next:close4
  146. 564 goto120
  147. 900 fori=0to1000:next:pokev+21,0
  148. 905 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  149. 910 ifer<>63thenprint"[147]":end
  150. 920 print"[147][144]load"chr$(34)"hello connect"chr$(34)",8"
  151. 930 print"run"
  152. 940 poke631,13:poke632,13:poke198,2:end
  153. 10000 open15,8,15,"s0:cryptic 93":close15:save"cryptic 93",8:end
  154. 60000 print"[147]":z$=" [152]                                      ":poke214,10:print
  155. 60010 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":fori=0to11:printz$:next
  156. 60020 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][